(ns main
  (load-file "rete.clj")
  (:require [clojure.xml :as xml])
)

;MAIN
(defn run [ rul fac ]
	(def xml-rules (xml/parse rul))
	(def xml-facts (xml/parse fac))

	(rete/createNet xml-rules)
	(rete/runEngine xml-facts))
